home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / misc / muint_pr.lha / Figlet / F.conv.scp next >
AmigaDOS Script File  |  1995-06-24  |  990b  |  50 lines
  1. .KEY LIB
  2. .BRA {
  3. .KET }
  4.  
  5. ;     SCRIPT FILENAME: F.conv.scp            
  6. ;     DATE           : 1-11-95 
  7. ;     AUTHOR         : Colin Thompson
  8. ;     DESCRIPTION    : Displays figlet text in a window   
  9.  
  10.  
  11. ;====================================================================
  12.  
  13. SETENV FIGTEXT $STRING0
  14.  
  15. IF EXISTS ENV:LV
  16.  
  17.      TESTSWITCH "B" $RADIO
  18.      IF WARN
  19.      
  20.           SETENV FIGTEMP `TR -d "B" <ENV:RADIO`
  21.           SETENV RADIO $FIGTEMP
  22.           DELETE ENV:FIGTEMP QUIET
  23.           SKIP USECHECKBOXES
  24.      
  25.      ENDIF
  26.      
  27.           FIGLET $RADIO $CYCLE -f {LIB} -d $LOCATION >RAM:FIG <ENV:FIGTEXT
  28.           ADVICE "FIGLETFONT: {LIB}" RAM:FIG
  29.           QUIT
  30.      
  31.      
  32.      
  33.      LAB USECHECKBOXES
  34.      
  35.      SETENV ADDEMUP `EVAL $CHECKBOX + 0`
  36.      FIGLET $RADIO $CYCLE -m$ADDEMUP -f {LIB} -d $LOCATION >RAM:FIG <ENV:FIGTEXT
  37.      ADVICE "FIGLETFONT: {LIB}" RAM:FIG
  38.      QUIT
  39.      
  40.      
  41.      
  42. ELSE
  43.  
  44.      RTEZREQUEST "FIGLET:" "YOU MUST SELECT A FONT FROM THE LISTVIEW"
  45.  
  46. ENDIF
  47.  
  48. QUIT
  49.  
  50.